1 IFD1<0THEND1=1ELSECLS:CONSOLE1,24:SC=SC+1:LOCATE0,0:ATTRBO,O:PRINT"SCORE";SC:S=STICK(0):Z=INT(RND*40):LOCATE18,22:COLOR3:ATTRB1,1:PRINT"A":ATTRB0,1:LOCATED1,2,0:PRINT"*":IFS=3THEND1=D1+1:IFD1=37THENPLAY"O5SISIO4":SC=SC+10:D1=1:ELSEELSEIFS=7THEND1=D1-1
2 IFRND>.5THENLINE(152,168)-(Z*8,8),1:IFD1=ZTHENFORS=0TO20:PLAY"O3L1DOREMEFASOLASIO4DOREMI":NEXT:CLS:ATTRB1:FORT=1TO7:COLORT:LOCATET*2,T*2:PRINT"KAPUTT!!!!":NEXT:PRINT:PRINT"SCORE";:COLOR1:PRINTSC:END:ELSELINE(152,168)-(Z*8,8),-1:GOTO1ELSEGOTO1